


DOSSIER 
COMMODORE 


AKTUELE BIJLAGE BIJ COMMODORE DOSSIER 


VOORLOPERS GEZOCHT 


Elektronisch winkelen. Eerst 
was het Science Fiction, toen 
werd het Nabije Tockomst en 
tegenwoordig beweert iedereen 
dat het technisch allang moge- 
lijk is. Nu gaat het dan werke- 
lijkk gebeuren. De firma Comp- 
U-Card uit Maarssen trekt de 
primeur naar zich toe. U kunt — 
zich deze firma het best voor- 
stellen als een grote computer 
waarin de gegevens zijn opgesla- 
gen van een groot aantal duur- 
dere consumptiegoederen, zoals 
audio-en video-apparatuur, fiet- 
sen, computers, horloges, keu- 
kenapparaten en dergelijke. De 
klanten van Comp-U-Card, die 
ongeveer 100 gulden per jaar 
betalen voor hun lidmaatschap, 
bellen met het bedrijf als ze 
koopplannen hebben. Ze krijgen 
daar cen telefoniste aan de lijn 
die alles voor hun op een rijtje 
zet. Hebben ze hun keus ge- 


COMMODORE DOSSIER AKTIEF ver- 
schijnt 12 keer per jaar. In februari, 
mei, augustus en november als bijla- 
ge in het hart van Commodore Dos- 
sier, in de overige maanden als los- 
se uitgave uitsluitend voor abonnees 
van Commodore Dossier. 


DEZE MAAND: 


NIiEUWS 
Vanaf pagina 1 


BASIC ONDER 
DE LOEP 
Alternatieve INPUT-routine, pagina 4 


TIPS & TRUCS 
Vanaf pagina 5 


LISTINGS 
Vanaf pagina 6 


MARKT 
pagina 10 


maakt dan kunnen ze ook via _ 
Comp-U-Card bestellen. Het be- 
drijf garandeert de laagste prijs, 
optimale garantiebepalingen en 
snelle levering. Een soort | 
postorder-bedrijf dus, maar dan 
anders. Comp-U-Card brengt 
geen catalogus uit, maar de gro- 
te computer is in feite hun cata- 
logus. Heel handig zou het na- 
tuurlijk zijn als u de inhoud van 
die computer thuis op uw eigen 
beelschem zou kunnen toveren, 
zodat u alles op uw gemak kunt 
nalezen. Dat kan binnenkort. 


Dat wil zeggen, Comp-U-Card 
wil eerst de zaak even goed 
testen. U voelt het al: men 


zoekt proefkonijnen en men 


vraagt zich af of de abonnees 
van Commodore Dossier daar 
iets voor voelen. 

Voor alle duidelijkheid: deelna- 
me aan het experiment kost u 
niets en verplicht u absoluut tot 
niets. U zit ook niet levenslang 
aan Comp-U-Card gebakken als 
ze eenmaal uw adres hebben. 
Anders hadden we u dit voor- 
stel natuurlijk niet gedaan. 


PRIJSVERLAGING PC’S 


Omdat het goed gaat met de PC 10 en PC 20, er dus meer worden 
gemaakt tegen lagere kosten, kon Commodore de prijzen voor de ma- 
chines verlagen. De prijsverlagingen zijn structureel. De PC 10 gaat 
voortaan f 4990,- exclusief BTW kosten (was f 5695,- exclusief) en de 


PC 20 f 7750,- (was f 8595,-). 


AAN BELGISCHE ABONNEES 


Uit verschillende telefonische en schriftelijke reacties van lezers in 
Vlaanderen is ons gebleken dat er soms aanzienlijke provisie-kosten 
moeten worden betaald voor overmaking van abonnementsgelden. Dat 
hoeft dus niet. Wij maken onze Belgische abonnees er op attent dat 
op de factuur die zij ontvangen, ons bankrekeningnummer in Belgié 


staat vermeld: 


210-0742230-38, Generale Bank Maatschappij Brussel 
Hierop kan zonder extra kosten het abonnee-bedrag worden over- 


gemaakt. 


STAND BEURSSPEL 


Onze medewerkster Marianne Stolk leert snel. Bij de laatste uitslag 
yan het Nationale Beursspel bleek ze spectaculair gestegen op de rang- 
lijst. In de provincie Noord-Holland is ze nu nummer 87, landelijk num- 
mer 489. Haar totale kapitaal bedraagt nu f 20533,—. Het dreigt dus 
leuk te worden. 
(CE 
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Het gaat dus als volgt. U meldt 
zich bij het bedrijf als u een 
computer en liefst ook een 
Viditel-modem heeft. Vervol- 
gens krijgt u een kaart thuis en 
krijgt u toegang tot de grote 
computer. Als u dan in de ko- 
mende periode een of ander 
duur consumptie-artikel wilt 
aanschaffen, kijkt u even in de 
computer hoe de prijzen van 
Com-U-Card liggen. Bevallen 
die u en bent u het eens met de 
garantiebepalingen, leverings- 
voorwaarden en -tijden dan 
kunt u het betreffende artikel 
via het bedrijf bestellen, maar 
het hoeft natuurlijk niet. U 
kunt het bestand ook enkel ge- 
bruiken voor uw eigen markton- 
derzoek. Comp-U-Card heeft 
voor het experiment 100 mensen 
nodig. Die worden geselecteerd 
uit de aanmeldingen naar aan- 
leiding van dit artikel. Als zich 
meer mensen aanmelden, dan 
krijgen die geen toegang, maar 
wel een presentje in de vorm 
van een gratis kaart die telefo- 
nisch toegang geeft tot de da- 
tabank. 

Dus nogmaals: in deze experi- 
menteerfase gaat het u pas geld 
kosten als u daadwerkelijk een 
van de artikelen uit de Comp- 
U-Card computer zou willen 
aanschaffen. 


Belangstellenden kunnen zich 
aanmelden bij: 
Comp-U-Card 
Antwoordnummer 2350 

3600 WB Maarssen. 


Een postzegel is niet nodig. Ver- 
meld wel duidelijk uw naam en 
adres, of u ja of nee een modem 
heeft, en eventueel uw beroep, 
leeftijd en geslacht. U krijgt dan 
verder bericht thuis. > 





CD IN VIDITEL 


Veel lezers die zich melden voor 
toegang tot het besloten gedeelte 
van onze Viditel-pagina’s (stuur 
een briefkaart met Viditel- 
klantnummer en abonnee- 
nummer), bellen na een tijdje 
op waarom ze niets horen. De 
reden daarvoor is simpel. Als u 
zich eenmaal gemeld heeft, 
hoort u inderdaad niets meer 
yan ons, maar u merkt na een 
paar dagen gewoon dat u loe- 
gang heeft. Wel onstaan er pro- 
blemen als abonnee-nummer en 
Viditel-nummer op verschillende 
namen staan. Dat wordt voor 


Ceres: aCoUrar le peer 
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ons een hele zoekerij, en boven- 
dien moeten we ervoor waken 
dat alles eerlijk gebeurt. 
Tenslotte nog een verzoek aan 
communicatie-fanaten, Meldt u 
zo snel mogelijk fouten in de te- 
lefoonnummers van Bulletin Bo- 
ards. Daarmee is een hoop el- 
lende te voorkomen, van argelo- 
ze telefoon-abonnees die midden 
in de nacht uit hun bed worden 
gebeld. 


FOUT IN SCHEMA 


Een slordige fout is geslopen in de tekening van het bedradingsschema rigeren van uitgeprinte listings is 
RS232C-connector (CD 4, pagina 68). Pen 1 en 3 van de IC moeten natuurlijk een heidens karwei. 
daar gecombineerd lopen naar aansluitpunt M op de Userpoort. Dat Opbellen werkt bijna nooit. 
betekent dat ook dat op pagina 69, de derde tekening van boven, Henk Snoeks is overdag niet op 
TRANSMIT GEEL naar pen M moet worden gevoerd. Onze excuses de redactie aanwezig en heeft 


aan de knutselaars. 


Sypersorpee 


voor de CBM 64 en 128 


De gehele Nederlandstalige opvolger van 
Easyscript. Het programma is menu en 
commando gestuurd, beschikt over een 
spellingschecker, rekenfunctie’s en kan tot 240 
kolommen breed werken. D.m.v. printerfile’s 
kunnen diverse printers worden aangesloten en 
kunt U zelf printeropties definiéren, b.v. 


verschillende lettertype’s. 


adviesprijs CBM 64 fl. 399,-, CBM 128 fi. 499,- 


Suypenbase 


voor de CBM 64 en 128 


Van het meest complete database programma is 
nu versie 2 beschikbaar. Dit betekent extra 
utility programma’s, nieuw labelprogramma en 
extra commando’s. Op de CBM 128 heeft U nu 
maximaal 62 Kb ruimte voor programma’s en 
variabelen. Op de CBM 128 kunt U Superbase 
128 en Superscript 128 tegelijk in het geheugen 


aanwezig hebben. 


adviesprijs CBM 64 fl. 399,-, CBM 128 fl. 499,- 


VAN DE PROGRAMMA- 


HULPDIENST 


Coordinator van de programma- 
hulpdienst, Henk Snoeks, vraagt 
even uw aandacht voor een aan- 
tal mededelingen van huishoude- 
liike aard. Als u ons blad al 
langer leest, kent u ons motto: 
wij krijgen uw programma’s 
aan het lopen, al gaan er tien 
brieven overheen. Brieven 
schrijven blijft de snelste manier 
om een oplossing te vinden voor 
niet werkende programma’s. 
Stuur bij voorkeur een diskette 
met daarop uw pogingen met 
uw brief mee. Die diskettes ko- 
men natuurlijk altijd retour. De 
praktijk leert dat cassettes vaak 
laadproblemen geven en het cor- 


bovendien geen telefoon. Viditel 


Upgraden 


van naar 


is wel een mogelijkheid, Zodra 
fouten door lezers gesignaleerd 
zijn, worden ze vermeld in Vidi- 
tel. Commodore Dossier in Vi- 
ditel begint, zoals bekend, op 
pagina 6240. 

Tenslotte zouden we u willen 
vragen om er niet meteen van 
uit te gaan dat de fout wel in 
het programma zal zitten. Zelfs 
u kunt fouten maken. Kijk 
vooral de data-regels zeer secuur 
na, voordat u gaat schrijven. 
Bijvoorbeeld. Een bekende mel- 
ding na RUNnen is: “illegal 
quantity error in...”’. Dat duidt 
op een hogere waarde dan 255 
in een van de dataregels. De re- 
gel waarin deze fout is gemaakt, 
wordt gevonden door het vol- 
gende in direct mode, dus zon- 
der regelnummer in te tikken: 
PRINT 

PEEK (63) + PEEK (64)*256 


normaal — inruil uw prijs 





Easyscript Superscript 64 


fl. 399,- fl. 100,- fl. 299, - 





Easyscript 


Superscript 128 


fl. 499,- fl. 125,- fl. 374, - 





Superbase 64 Superbase 128 


fl. 499,- fl. 180,- fl. 319, - 





Superbase 


Starter Superbase 64 


fl. 399,- fl. 150,- fl. 249, - 





Superbase 


Starter Superbase 128 


fl. 499,- fl. 150,- fl. 349, — 





Superbase 


Versie 1 naar Versie 2 


Informeer bij uw dealer of: 


naar de voorwaarden voor upgraden. 


Precision Software b.v. 


Heemraadssinge 


1195 


J 3023 CB Rotterdam 
Precision Telefoon 010-778890 
Software 
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EEN ALTERNATIEVE INPUT-ROUTINE 


Vaste lezers van deze rubriek 
herinneren zich ongetwijfeld nog 
de ’INPUT-truc’ uit een vorige 
aflevering: de mogelijkheid om 
met INPUT#I het vervelende 
vraagteken bij een INPUT- 
opdracht te verwijderen. 

Nu presenteren wij u een kant 
en klare subroutine, die geheel 
afrekent met de problemen van 
de INPUT-commando. Niet al- 
leen is het nu ook mogelijk om 
komma’s, punten en dergelijke 
in te voeren, tevens is de kans 
op het maken van fouten (bij- 
voorbeeld het abusievelijk in- 
drukken van een cursortoets) tot 
nul gereduceerd. En misschien 
wel het grootste voordeel: u 
kunt voortaan maximaal 255 te- 
kens invoeren, een schril con- 
trast met de 80 tekens van de 
standaard INPUT-opdracht! 


GEEN CURSORBESTURING 
Uiteraard dienen we, als we een 
dergelijke subroutine schrijven, 
een stuk of wat problemen op 
te lossen. Bijvoorbeeld: 

1. de cursortoetsen moeten wor- 
den uitgeschakeld 

2. dit geldt ook voor toetsen als 
CLR/HOME en dergelijke 

3. er moet een DELETE- 
mogelijkheid zijn 

4. we moeten onze eigen ’cur- 
sor’ ontwerpen 

Deze problemen worden in de 
subroutine stap voor stap opge- 
lost. Het belangrijkste punt is 
dat we, in plaats van INPUT, 
het GET-commando gaan ge- 
bruiken. De GET-opdracht 
haalt een toets uit de toetsen- 
buffer. Als er geen toets werd 
ingedrukt, resulteert dit in een 
zogenaamde "nulstring’. Hoe we 
hiermee afrekenen, zien we zo 
meteen. 

Voor onze eigen ’cursor’ gebrui- 
ken we een ander teken dan 
CHRS$(160) (deze wordt door de 
INPUT-rouinte gebruikt en is in 
feite niets meer of minder dan 
een diapositieve spatie!). Wij 
kiezen voor CHR$(166), een 
gearceerd blokje. 

De subroutine ziet er als volgt 
uit: 


10000 rem *** alternatieve 
input-routine *** 

10010 rem voor: commodore 
64, vic-20, c-16, plus/4 en c 128 
10020 rem 

10030 poke 198,0 

10040 ip$ = ”” 

10050 print chr$(166)chr$(157); 
10060 get ke$:if ke$ = 7” then 
10060 

10070 te = len(ip$) 

10080 if ke$ << >chr$(20) then 
10110 

10090 if te=0 then 10060 

10100 ip$ = left$(p$,te-1):print 
chr$(32)chr$(157)chr$(157);:goto 
10050 

10110 if ke$ = chr$(13) then 
print chr$(32)chr$(20):return 
10120 if te=255 then 10060 
10130 if ke$ > chr$@1) and 
ke$ < chr$(91) then 10150 
10140 goto 10060 

10150 print ke$;:ip$ = ip$ + 
ke$:goto 10050 


Zoals u ziet, nog een flink stuk 
code. We zullen de programma- 
regels zoals u dat van ons ge- 
wend bent, nu stap voor stap 
met u doornemen: 


REGEL 10000-10020: 

drie REM-instructies. Ze hebben 
geen andere functie dan het ge- 
ven van listing-informatie. De 
computer doet er verder niets 
mee. 


REGEL 100030: we vertelden 
al, dat we gebruik gingen ma- 
ken van de GET-opdracht. 
Hiervoor is het noodzakelijk dat 
we de toetsenbuffer (een soort 
*sluis’, waarin de laatste 10 in- 
gevoerde tekens worden be- 
waard) leegmaken. Als we dit 
vergeten, komt er wellicht een 
per ongeluk door u ingedrukte 
toets alvast op het scherm te 
staan. 

Het aantal tekens in de toetsen- 
buffer wordt bijgehouden in de 
geheugen-locatie 198. Door de 
inhoud hiervan op 0 te zetten, 
*denkt’ de computer dat er geen 
enkele toets meer op afhande- 
ling wacht. Pas nu worden 
eventueel ingedrukte toetsen 
voor onze routine bewaard! 


REGEL 10040: de uiteindelijke 


’routinestring’ wordt opgeslagen 
in IP$; deze string gaat straks 
de gevraagde informatie bevat- 
ten. Deze string wordt nu leeg- 
gemaakt (letterlijk: omgezet in 
een nulstring). 


REGEL 10050: het printen van 
onze nieuwe cursor CHR$ 
(166). Meteen daarna wordt een 
cursor links afgedrukt, zodat we 
straks op de plaats van het ruit- 
je een letter neer kunnen zetten. 
Let op de punt-komma na 
CHR$(157). Indien deze punt- 
komma ontbreekt, wordt de 
tekst op de volgende regel afge- 
drukt. En dat is natuurlijk niet 
de bedoeling... 


REGEL 10060: het ’hart’ van 
deze subroutine: hier wordt een 
teken van het toetsenbord opge- 
haald. Als er geen toets is inge- 
drukt, resulteert dit in een zoge- 
naamde nulstring (IF KE$ = 
*”*). Er is hier sprake van een 
lus, er wordt gewacht totdat er 
ook inderdaad een toets is in- 
gedrukt. 


REGEL 10070: de lengte van 
IP$ (de uiteindelijke string) 
wordt in de variabele TE (= 
teller) gezet. Noodzakelijk, om- 
dat we een uitwis-functie inbou- 
wen, waarbij we de lengte van 
de string moeten kunnen ver- 
minderen. 


REGEL 10080: deze regel kijkt 
of de DELETE-toets (= de uit- 
wistoets) is ingedrukt. Is dit 
NIET het geval, dan wordt er 
doorgesprongen. 


REGEL 10090: hier bewijst de 
variabele TE zijn nut. Als TE 
gelijk is aan nul, zitten er geen 
tekens in IP$. Er valt dan dus 
niets uit te wissen, zodat we te- 
rugspringen naar 10060 (= 
wachten op een toets, enzo- 
voorts). 


REGEL 10100: het ziet er alle- 
maal ingewikkeld uit, maar de 
praktijk valt mee: allereerst 
wordt een nieuwe IP$ gemaakt, 
waarbij het meest rechtse teken 
ontbreekt, dit is nu dus uit de 
string verwijderd. De overige in- 





COMMODORE DOSSIER AKTIEF 4 


structies in deze regel verplaat- 
sen de cursor één plaats naar 
links. Dit verplaatsen had ook 
gekund met CHR$(20), maar 
aangezien CHR$(20) slechts 
werkt met string van maximaal 
80 tekens, moesten we nu onze 
eigen "CHR$(20)’ ontwerpen! 


REGEL 10120: de string heeft 
zn maximale lengte van 255 te- 
kens bereikt, terug naar 10060 
voor de volgende toets (RE- 
TURN of DELETE!). 


REGEL 10130: kijken of de co- 
de van het ingetoetste teken zich 
bevindt in het gedeelte van 31 
tot en met 90, dit zijn de meest 
voorkomende tekens. Hiermee 
worden automatisch alle cursor- 
toetsen en dergelijke uitge- 
filterd. 


REGEL 10140: de test in regel 
10130 is niet gelukt; terug naar 
het wachten op een volgende 
toets. 


REGEL 10150: het ingevoerde 
teken wordt aan IP$ toege- 
voegd. Let op de opdracht ’GO- 
TO 10050’: dit heeft als resul- 
taat dat de cursor op het 
scherm wordt verplaatst. 


Uiteraard doet deze subroutine 
op zichzelf niets nuttigs: als u 
RUN geeft, krijgt u zelfs de 
melding: RETURN WITHOUT 
GOSUB ERROR’. Door echter 
de volgende drie regels in te 
toetsen, kunt u de subroutine 
uitproberen: 

10 print ’’toets een string 
in’’;:gosub 10000 

20 print ’’de door u ingetoetste 
string was:’’: print ip$ 

30 print:print: goto 10 

Als de routine naar behoren 
werkt, kunt u hem in uw eigen 
programma’s gebruiken, waarna 
u bent verlost van alle eerder 
ondervonden INPUT- 
problemen. 

Veel succes! 








Maandelijkse rubriek met korte programma’s, routi- 
nes en utilities. aa viezen van binnen- 


en buitenlandse pro 


essionals. Lezers helpen lezers. 


Het zijn de kleine dingen die het doen. Tips & trucs 
van lezers worden, indien geplaatst, beloond met 50 


guiden. 


IN- EN UITZOOMEN 


Het onderstaande programma 
laat het scherm oneindig vaak 
krimpen en uitzetten. 

Hierbij wordt gebruik gemaakt 
van de eigenschap dat de 
schermhoogte en -breedte van 


10 FORI=0T021 

20 POKE3866,1 

30 POKE36867,2*1 

40 NEXT 

50 FORI = 21TOOSTEP-1! 
60 POKE36866,1 


de VIC-20 met POKEs naar de 70 POKE36867,2*1 
lokaties 36866 en 36867 te ver- 80 NEXT 

anderen zijn. 90 GOTOI0O 
SUPEREXPANDER 


AAN/UIT ZETTEN 


Veel VIC-20 eigenaren zijn in 
het bezit van de SUPEREX- 
PANDER’, die onder andere de 
grafische mogelijkheden van de 
computer sterk vergroot. Boven- 
dien zorgt de insteekkaart voor 
3K extra geheugen. Het is mo- 
gelijk de ‘expander’ uit te zetten 
— zonder daarvoor de kaart uit 
de computer te hoeven trekken 


PRINT AT 

Het scherm van de VIC-20 
bestaat uit 23 regels en 22 ko- 
lommen (genummerd van 0 tot 
22, respectievelijk 0 tot 21). 
De volgende subroutine helpt u 
bij het printen op een willekeu- 
rige plaats op het scherm. 

100 POKE 782,X 

110 POKE 781,Y 

120 SYS 65520 

130 RETURN 


CASSETTEMOTOR AAN/UIT 


ZETTEN 

Met de volgende twee POKEs 
kunt u de motor van de casset- 
terecorder besturen. 

Voor motor aan: POKE 
37148,252 

Voor motor uit: POKE 37148,0 
U kunt hiermee bijvoorbeeld . 
een programma schrijven, dat 
snel naar een gewenste plaats op 
een cassette spoelt. 

U moet één keer de tijd opne- 
men, die de recorder nodig 
heeft om op het gewenste punt 
te belanden en een wachtlus van 


— waarbij wel de 3K extra ge- 
heugen bruikbaar blijft. 
Daarvoor moet u achtereenvol- 
gens de opdrachten SYS 64850 
en SYS 58232 geven. 

Wilt u later de “SUPEREX- 
PANDER’ weer inschakelen dan 
kan dit met SYS 64802. 
Hierdoor wordt wel het gehele 
RAM geheugen gewist. 


Stel dat u in uw programma het 
woord ’ HALLO”’ op regel 17 
wilt zien, waarbij de eerste 7 
posities blanco moeten blijven. 


U moet dan de volgende op- 
dracht geven: 


10X =6:Y = 16:GOSUB100: 
PRINT” HALLO” 


deze lengte tussen de POKE- 
opdrachten aanbrengen. 
Voorbeeld: 

10 PRINT’ DRUK OP ’’FAST 
FORWARD” 

20 WAIT 37151,64,64 

30 POKE 37148,252 

40 FORI=1TO10000:NEXT 
50 POKE 37148,0 


In dit voorbeeld zorgt regel 30 
ervoor dat het programma 
wacht tot er een toets op de re- 
corder ingedrukt wordt. 





WELKE COMPUTER IN 


GEBRUIK? 


Indien u software schrijft voor 
verschillende computer systemen 
is het belangrijk te weten wat de 
daadwerkelijke verschillen tus- 
sen de typen zijn. De VIC 20 
bijvoorbeeld heeft op het 
scherm maar 22 kolommen — 
tegen 40 voor de CBM 64 - 
waardoor het draaien van som- 
mige software problemen 
oplevert. 

Een oplossing hiervoor is als 
volgt: 


1 SYS 65517 : A= PEEK(781) 


In de waarde van A is de kolom 
breedte van het scherm ingele- 
zen dus 22 voor een VIC 20 en 
40 voor de overige Commodore 
computers. 


KOALA PAD BUTTONS 


Om het alom gebruikte Koala 
Pad ook in eigen programma- 
tuur te kunnen gebruiken kunt 
u met 


PRINT PEEK(197) 


testen welke button van het pad 
werd ingedrukt. Uitkomst ’59’ 
betekent dat de rechtse knop 
werd ingedrukt en 50’ dat de 
linker knop werd ingedrukt. 


GEHEUGENKAARTEN 
UITSCHAKELEN 


U kunt uw geheugenuitbreidin- 
gen met een aantal POKEs uit- 
schakelen. Hiermee voorkomt u 
dat de connectoren van uw 
kaarten verslijten. Bovendien 
kunt u met bijvoorbeeld een 8K 


642 
standaard 16 
3K 4 
8K 18 
16K 18 
24K 18 


kaart toch een spel dat voor een 
standaard VIC-20 geschreven is, 
inladen en spelen. 


De volgende tabel geeft u alle 
POKEs die u nodig hebt: 


644 = 648 
30 30 
30 30 
64 16 
96 16 

128 16 


Besluit de drie POKEs met de opdracht SYS64824. 


Om de VIC-20 op 8K in te stellen moet u dus bijvoorbeeld de vol- 
gende opdrachten geven: 

POKE642,18:POKE644,64:POKE648, 16:SYS64824 

Let op: U kunt een 16K-kaart gebruiken als 8K-kaart, maar niet 
als 3K-kaart. 

De POKEs voor een VIC-20 met 3K uitbreiding werken alleen als 
die uitbreiding ook inderdaad aanwezig is. Geeft u de POKEs 
toch, dan meldt de computer wel dat hij 6655 bytes ter beschik- 
king heeft, MAAR DAARBIJ VERGIST HIJ ZICH! 
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TIPS EN TRUCS 


BEVEILIGING WISSERS 
Een uiterst betrouwbare tip om — waarschuwing op zijn plaats. Onderstaande drie miniatuurtjes 
het LISTen en SAVEn van pro- Alleen na omstandig en vooral wissen elk op een andere manier 
gramma’s tegen te gaan. Inzen- _deskundig gerommel is een pro- het scherm schoon. Ze zijn uit- 
ding van J.Drenthen uit gramma dat door dit program- stekend te gebruiken in zelfge- 
Kloosterhaar. Juist omdat het ma wordt voorafgegaan alsnog maakte programma’s. Inzender 
programma perfect werkt, is een te listen. Weet dus wat u doet. is de heer C.Fransen uit Dor- 
drecht, die zelf het meest ge- 
charmeerd is van de laatste. 


10 poke2051,0:poke2052,0<shift>/<spatie>33 100 fort = 1to24:ford = 1tol0 
20 poke809, 255<shift>/<spatie>ac 110 poke 781,t:sys59903 
30 poke818,32<shift>/<spatie>95 : : : 120 nexidt 

40 poke53280,9:poke53281,9<shift>/<spatie>13 / 

50 printchr$(147)"xx*x*xx testxxxx"<shift>/<spatie>69 

60 input"hoe heet je: “sq$<shift>/<spatie>bc 130 fort =24tol 

70 print*ik zet je naam 10 x op het schern’: step-1:ford = Ltol0 
print<shift>/<spatie>24 140 poke781,t:sys59903 

80 fori=itol0<shift>/<spatie>dbe 150 nextd,t — 


85 printq$<shift>/<spatie>b9 

90 nexti<shift>/<spatie>91 160 pl =0:p2= 25:vv = 59903 
100 print:print:print"nog een keer? (j/n)"<shift>/<spatie>d9 170 fort = 1to24:ford = 1to40 
110 getaS:ifaS="“thenl10<shift>/<spatie>5b 180 nextd 

oo ifas="j"°then50<shift>/<spatie>dcc 190 poke 781,pl:sys vv 

1 ifas="n"thenend<shift>/<spatie>b oo 

140 goto110<shift>/<spatie)35 a 


220 nextt 


LISTINGS VAN LEZERS 









Het beste uit POSTBUS 9194. De programma’s die in deze rubriek worden geplaatst, worden beloond met 50 gulden. Voorwaar- 
de is dat ze origineel zijn. Inzenders vrijwaren de redactie van plagiaat. De amenias bij voorkeur inzenden op schijf of cas- 
sette, zodat we zeker weten dat ze ‘lopen’. Gedrukte programma’s moeten in elk geval van characterstrings in plaats van 
besturingstekens zijn voorzien. De beste . ramma’s uit deze rubriek kunnen in a komen om door COMMODORE DOS- 
SIER in samenwerking met een software-bedrijf commercieel op de markt te worden gebracht. In dat geval staat de auteur alle 
rechten van het programma af aan Commodore Dossier in ruil voor een wettelijk geregeld deel van de opbrengst. 










VERTRAGER 

Alle meldingen komen na het listings als voor andere pro- 
RUNnen van dit programmaatje gramma’s. Fraaie inzending van 
lekker langzaam op het scherm. C.J.Remmers uit Waalwijk. 
Dat geldt dus zowel voor 














forl=679to703:reada:pokel,a:next<shift>/<spatie)7b 
110 poke806, 167:poke807, 2:poke251,40<shift>/<spatieded 
120 data72,138,72,152,72,166,251,240<shift>/<spatie>def 
130 data’,160,255, 136,208,253, 202, 208<shift>/<spatie>20 

140 data248,104,168,104,170,104,76,202,241<shift>/<spatie>0b 












BALKENGRAFIEK 
B.Tolsma uit Arum ontwierp de te doen als subroutine in een 
volgende zeer fraaie balkengra- ander programma. 

fiek, die geschreven is om dienst 










100 printchr$(147):poke53280,11:poke53281,11:printchrs(144):printchrs(14)chrs(3) 
<shift>/<spatie>c2 
105 printchr$(19)tab(8)"12345678901234567890123456789012"<shift>/<spatie>d8e 
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esac a7 4a 





119 printtab(8)chr¢(145)3:forx=1to32:printchr$(167); :next:printchrs(19)<shift>/< 

spatie>f6 

120 printchr$(145)chr$(145):forx=1to16:print"Week"x:next:printchr$(30)<shift>/<s 

atie>9b 

130 printchr$(19)chr$(17)chr$(17)3:forx=1tol6:readz: fory=1toz<shift>/<spatie>55 

135 printtab(8)chr$(18)chr$(163)3:nexty:print:nextx(shift>/<spatie>08 

140 printchr$(144)<shift>/<spatier e2 
ifvl=ithenreturn<shift>/<spatie>ad 
vl=l:printchr$(31):gosub130<shift>/<spatie>db 
printchr$(28):gosub130<shift>/<spatie>7a 
printtab(8)chrs(145)3:forx=1t032:printchr$(167)3 :next<shift>/<spatie>41 
printtab( 48) *12345678901234567890123456789012"<shift>/<spatiera3 
printtab(8)chr$(28)chrs(18)° ";chr$(144)“Winst"3<shift>/<spatie>red 
printtab(19)chr$(31)chrs(18)" *schr$(144)"Inkoop”3<shift?/<spatie>89 
printtab(30)chr$(30)chr$(18)° "schr$C(144)"Verkoop"<shift>?/<spatie>fO 
getgs:ifgs=""“then901<shift>/<spatie>bb 

902 run<shift>/<spatierOf 

1000 data 12,14,16,18,19,21,26,23,23,25,19,14,16,18,28,25,8,9,12,13,14,16, 18¢shi 

ft>/<spatie>6d 

1010 datai5,16,17,12,9,11,12,20,18,4,5,4,5,5,5,8.8,7,7,7,5,5,6,8,7<shiftt>/<spati 

e>4b 


WANDELENDE LETTERS 

Bijgaand programma van AN Het aantal zinnen dat op len die voor elke zin apart wor- _kleurenpatroon, 

M.R.Pauw uit Apeldoorn het scherm moet lopen. In het den ingesteld, in het voorbeeld Rood, wit,blauw,geel is ak=5. 
bestaat uit een subroutine en voorbeeld zijn dat drie zinnen, | staan deze op 60,62 en 64. RV$ Diapositief of niet (j/n). 
een voorbeeld (regel 10-70). Het dus an=3 TE$ Bevat de zin die naar het WS Kleurencombinatie per 
programma laat letters van een HL$ Hoofdletters, HL$='j”’, scherm moet lopen, mag niet woord (j) of per letter (n). 
zin naar een bepaalde positie op of kleine letters, HL$=’’n’’. langer zijn dan 40 tekens. KL Kleur KL(nummer zin, 
het scherm lopen. Er zijn ver- AC Randkleur, in het voorbeeld KO Bevat het kolomnummer nummer kleur). 

schillende variaties mogelijk. zwart, dus ac=0. (0-40), op deze plaats begint de  Spaties hebben geen invloed op 
Er zijn vier vaste variabelen VO Schermkleur, in het voor- zin. de kleurencombinaties. 

(an, hl$, ac, vo), die in het beeld zwart, dus vo =0 RE Regelnummer (0-23). 

voorbeeld op regel 50 staan: Dan zijn er nog zeven variabe- AK Aantal kleuren van het 


10 rem xxx wandelende letters *xx<shift>/<spatie?d7 

15 dim k1(3,12)<shift>/<spatie>93 

20 readan,hl$,ac,vo:fori=itoan<shift>/<spatie>51 

30 readtes(i),koCi),reCid,ak(i),rvsCid, wsCid<shift>/<spatierca 

40 fork=itoak(i):readk1(i,k):next:next<shift)/<spatie>12 

50 data3,j,0,0<shift>/<spatier ed 

60 data“lees commodore dossier”,9,11,3,j,j3,2,1,6¢shift>/<spatie>95 
62 data"lees commodore dossier”,9,9,3,n,n,2,1,6<shift>/<spatierae 
64 data"lees commodore dossier",9,13,12,n,n,2,2,2,2,1,1,1,1,6,6,6,6<shift>/<spat 
ie>c2 

70 gosub300:end<shift>/<spatie>42 

300 rem xxx uitvoeren *xxx(shift>/<spatiedef 

310 poke53280,ac:poke53281,vo:printchr$(147)<shift>/<spatie>40 

320 fori=ltoan: j=0:kk=0; ifw#(1)="j"“thengosub800<shift>/<spatie>8b 
330 ifhl$="n"thenpoke53272,23<shift>/<spatie>30 

340 q1=55296+40xre (1) :q2=1024+40xre (i) :q3=q2+kolid+len(tes(i))-1<shift>/<spati 
e>b6 

350 ifwsCid="n" thengosub600<shift>/<spatie>0f 

360 fory=ltolen(te$(i)):bS=mid$(te$Cid,len(te$(i)dt+i-y,1):ifbs=" "“thengoto700<sh 
ift>/<spatie>rca 

370 ifwsCid=a"n"thenkk=kk+1:ifkk>ak(i)thenkk=1<shift>/<spatie>d7 
380 r=asc(bs):ifr>é6dandr<9ithenr=r-64<shift>/<spatie>96 

385 ifhls="n"andr>90thenr=r-128<shift>/<spatie>17 

390 ifrv$Ci)="4j°thenr=rt+128<shift>/<spatie>18 

400 forg=q2Z2toqg3tl-y:pokeq-1,32<shift?/<spatie>74 

410 gosub500<shift>/<spatie>23 

420 pokeq,r:forf=1tolO:next:next:next:next<shift>/<spatie>c6 

430 return<shift>/<spatie>2i 

800 pokeqi+(q-q2),.k1Ci,akCid+1-kk):return<shift>/<spatie?b9 

600 forw=itolen(te$Ci)d):j=jti<shift>/<spatie>07 

610 ifmidS(te$Cid,w,1)=" “thenj=j-i:next<shift>/<spatie>9e 

620 ifj=akCid+ithenj=l<shift>/<spatieraa 

630 next:kKKk=ak(i)d-j:return<shift>/<spatie>69 
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700 ifwSCid="n"thennexst<shift>/<spatie>d7 


705 kk=kk+1:ifkk>akCi)dthenkk=1<shift>/<spatie>8c 


710 next<shift>/<spatie?46 


800 forz=itolen(te$Cid):ifmidsSCtesCid,z,1)=" “ 


810 next: jHjiti<shift>/<spatie>bs 


thenj=jti<shift>/<spatie>10 


820 ford=itoj:j=j-akCid:ifj<akCi)+ithen840¢shift>/<spatie>f4 


830 next<shift>/<spatie>bf 
840 ifj=OthenkKk=i:return<shift>/<spatie>98 
850 kk=akCid+i-j:return<shift>/<spatie>6f 


CHARLIE CHAPLIN 

Deze had u nog van ons tegoed. Koek ontwierp hem als voor- 
Door plaatsgebrek moest hij beeld van onze ANIMATIE- 
vervallen uit Commodore Dos- EDITOR uit het betreffende 
sier nummer 4, de SPRITE FI- nummer. Een zeer duidelijk 
LE van Charlie Chaplin. Wijo voorbeeld omdat immers juist 


1 pokeSl,O:poke52,48:poke55,0:poke56 
»,48:cilr<shift>/<spatie>9d 

2 fors=Oto7:fort=Oto62:readu<shift>/ 
<spatiered 

3 poke(192%x64)+(sx64)+t,ur:nextinext< 
shift>/<spatie>do 

10 dataQ00,000,000<shift>/<spatie>b9 
11 data000,000,000<shift>/<spatie>bs 
12 data000,042,000<shift>/<spatie>b9 
13 data000,042,000<shift>/<spatie>bs 
14 data000,170,128<shift>/<spatie>bo 
15 data000,125,064<shift>/<spatie>dbs 
16 data000,063,000<shift>/<spatie>aé 
17 datad00,055,000<shift>/<spatie>a2 
18 datad00,063,000<shift>/<spatie>da4d 
19 data000,042,000<shift>/<spatie>aé 
20 data000,170,000<shift>/<spatiedal 
21 datad00,170,000<shift>/<spatie>ad 
22 data000,170,128<shift>/<spatie>as 
23 data000,170,128<shift>/<spatie>da9¥ 
24 data000,170,128<shift>/<spatie>a6 
25 data000,170,128<shift>/<spatieda7 
26 data000,170,128<shift>/<spatie>dad4d 
27 dataQ00,170,128<shift>/<spatiedad 
28 data000,170,128<shift>/<spatieda2 
29 data000,170,128<shift>/<spatiera3 
30 datad00,170,128<shift>/<spatie>ad 
31 rem<shift>/<spatie>90 

32 data000,170,128<shift>/<spatie>9e 
33 data000,170,128<shift>/<spatie>9f 
34 data002,170,176<shift>/<spatie>95 
35 data002,170,188<shift>/<spatie>95 
36 data002,170,136<shift>/<spatie>97 
37 data010,170,136<shift>/<spatie>95 
38 data010,170,136<shift>/<spatie>96 
39 data010,170,136<shift>/<spatie>97 
40 data042,170,136<shift>/<spatie>9f 
41 data042,170,136<shift>/<spatie>9e 
42 data04d2,170,136<shift>/<spatie>9d 
43 data042,138,136<shift>/<spatie>90 
44 data010,138,136<shift>/<spatie>90 
45 data0Q10,138,136<shift>/<spatie>91 
46 data002,170,136<shift>/<spatie>9d 
47 data000,170,008<shift?/<spatied92 
48 data000,026, 000<shift>/<spatie>87 
49 datad00,026,000<shift>/<spatie>86 
50 data001,090,004<{shift>/<spatie>8d 
51 data001,074,084<shift>/<spatie>8e 
52 datadgogd,001,080<shift>/<spatie>s8eé. 
53 rem<shift>/<spatie>ba 

94 datad00,000,000<shift>/<spatie>85 
55 data000,042,000<shift>/<spatie>82 


Char 
word 


lie Chaplin beroemd is ge- 
en door zijn manier van 


bewegen. 


data000,042,000<shift>/<spatie>8d 
data000,170,128<shift>/<spatie>87 
datacd0, 125,064<shift>/<spatie>8d 
data000,063,000<shift>/<spatie>8d 
data000,055,000<shift>/<spatie>sf 
data000,063,000<shift>/<spatie>8b 
data000,042,000<shift>/<spatie>8b 
data000,042,000<shift>/<spatie?8a 
datad000,042,000<shift>/<spatie>f5 
data000,170,128<shift>/<spatie>ff 
data000,170,128<shift>/<spatie>fec 
d@atad00,170,128<shift>/<spatie>fd 
data000,170,128<shift>/<spatiedfa 
data000,170,128<shift>/<spatie>fb 
data000,170,128<shift>/<spatie>f8 
data000,170,128<shift>/<spatie>df9 
data000,170,128<shift>/<spatie>f6 
datad000,170,128<shift>/<spatie>f7 
datac00,170,128<shift>/<spatie>df4 
rem<shift>/<spatiedc4 

data000,170,128<shift>/<spatie>f2 
datad02,170,176<shift>/<spatie>fa 
data002,170,188<shift>/<spatie>f£8 
data002,170,162<shift>/<spatie>fd 
data002,170,162<shift>/<spatiere2 
data002,170,162<shift>/<spatie>c3 
data002,170,160<shift>/<spatiede2 
data002,170,160<shift>/<spatiere3 
data002,170,160<shift>/<spatiede4 
data00z,170, 160<shift>/<spatiered 
data002,170,160<shift>/<spatiedeé 
data002,170,160<shift>/<spatiede7 
data000,170,128<shift>/<spatie>deé 
data000,170,128<shift>/<spatie>de7 
data000,170,128<shift>/<spatier ed 
data000,042,000<shift>/<spatiedee 
data000,042,000<shift>/<spatie>red9 
datad000,042,000<shift>/<spatieres 
data004,042,004<shift>/<spatie>rdeb 
data005,106,084<shift>/<spatie>e2 
data001,089,080<shift>/<spatie>db 
rem<tshift>/<spatieree 

data000,000, 000<shift>/<spatieddi 
data000,000,000<shift>/<spatie>dd 


100 data000,042,000<shift>/<spatie>dl 


101 
102 
103 


datad000,042,000<shift>/<spatie>dd 
data000,170,128<shift>/<spatie>d8 
data000,125,064<shift>/<spatierdd 


104 dataQ000,063,008<shift>/<spatierdé 


105 
106 
107 


datad00, 055, 008<shift>/<spatie>d2 
datad00,063,008<shift>/<spatierd4 
data000,042,008<shift>/<spatie>d6 
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123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
13/7 
138 
139 
140 
141 
id2 
143 
144 
145 
146 


datad000,042,136<shift>/<spatie>rdd 
data000,042,136<shift>/<spatierdde 
data000,170,136<shift>/<spatie>rdf 
data000,170,136<shift>/<spatie>de 
data000,170,136<shift>/<spatiercl 
data000,170,136<shift>/<spatie>cd 
data000,170,136<shift>/<spatie>dc3 
data000,170,136<shift>/<spatie>c2 
data000,170,136<shift>/<spatie2cd 
data000,170,136<shift>/<spatierc4d 
data0o0,170,136<shift>/<spatierc7 
rem<shift>/<spatie>f8 

data000,170,184<shift>/<spatie>cod 
data000,170,128<shift>/<spatierc7 
data000,170, 160<shift>/<spatie>c8 
data000,170,160<shift>/<spatierc? 
data000,170,160<shift>/<spatie>dce 
data000,170,168<shift>/<spatie>rc7 
data000,170,168<shift>/<spatie>c4 
data000,170,168<shift>/<spatie>cd 
data000,170,170<shift>/<spatie>33 
data000,170,170<shift>/<spatie>32 
data000,168,170<shift>/<spatie>38 
data000,168,170<shift>/<spatie>39 
data000,168, 168<shift>/<spatie>37 
data000,170,168<shift>/<spatie>3f 
data000,170,160<shift>/<spatie>34 
data000,042,128<shift>/<spatie>39 
data000,041,000<shift>/<spatie>3e 
data000,041,000<shift>/<spatie>3f 
data004,041,080<shift>/<spatie>30 
data005,104,080<shift>/<spatie>30 
data001,080,000<shift>/<spatie>36 
rem<shift>/<spatie>02 

data000,000, 000<shift>/<spatie>3d 
data000,042,000<shift>/<spatie>3a 
data000,042,000<shift>/<spatie?25 
data000,170,128<shift>/<spatie>2f 
data000,125,064<shift>/<spatie>25 


LEREN REKENEN 


Nog niet eerder vertoond in dit 
blad: 


datad00,063,000<shift>/<spatie>25 
data000,055,000<shift>/<spatie>27 
data000,063,000<shift>/<spatie>23 
data000, 042,000<shift>?/<spatie>23 
data000,042,000<shift>/<spatie>22 
datad00,042,000<shift>/<spatie>2d 
data000,170,128<shift>/<spatie>27 
datad00,170,128<shift>/<spatie>24 
datadd00,170,128<shift>/<spatie>25 
data000,170,128<shift>/<spatie>22 
datad00,170,136<shifto/<spatier2c 
data000,170,136<shift>/<spatie>2f 
data000,170,136<shift>/<spatie>ze 
data000,170,136<shift>/<spatie>il 
data000,170,136<shift>/<spatie>10 
data000,170,184<shift>/<spatie>ria 
rem<shift>/<spatiedrd2c 

503000, 170, 128<shitt?/<spatiedia 
data002,170,160<shift>/<spatie>15 
data002,170,160<shift>/<spatie>di6 
data002,170,160<shift>/<spatie>d17 
data002,170,160<shift>/<spatie>18 
data002z,170,160<shift>/<spatie>19 
data002,170,160<shift>/<spatie>la 
datad002,170,160<shift>/<spatie>rdlb 
data002,170,160<shift>/<spatiedic 
data002,170,160<shift>/<spatie>dld 
data002,170,160<shift>/<spatie>die 
datad002,170,160<shift>/<spatiedif 
data000,170,128<shift>/<spatie>0Oe 
datad000,170,128<shift>/<spatiedof 
data000,170,128<shift>/<spatie>0c 
data000,042,000<shift>/<spatie>06 
data000,042,000<shift>/<spatie>OoOl 
data000,042,000<shift>/<spatie>00 
datad004, 042, 004<shift>/<spatie>03 
data005,106,084<shift>/<spatie>0a 
data001,089,080<shift>/<spatie>03 
reméshift>/<spatie>36 


kenen onder de knie te krijgen. 
een educatief programma. Gebruikertjesvriendelijke opzet. 


Keurig verzorgd programma van Als vader of moeder de compu- 


F.F.J. Nieuwenhof uit Benne- 


ter eenmaal hebben aangezet, 


kom. Het programma helpt kin-  vindt de ijverige leerling snel 


deren de beginselen van het re- 


zijn eigen weg. 


LEREN REKENEN 


LOOO LEM KKKKKAK KKK K KR KKIR KEK KE KK KKK KKKKKKK SHIFT /Cspatie>dde 
1010 rem xxxxxxxxxx leren rekenen kxxkxkxxxxkXC Shift? /<spatie>58 
1020 LEM KKKAKKKKKKKKKKK KICK ERK AKA KKKKRAKKKKK SHIft>/<Cspatie>Sa 
1030 rem<shift>/<spatie>8d 

1040 rem **xxx sommen met grote cijfers xxx*x<shift>/<spatie>f3 
1050 rem<shift>/<spatied3s! 


1060 rem 
1070 rem 
1080 ren 


frans nieuwenhof<shift>/<spatiered 
&<shift>/<spatie>83 
jan hoolwerf<shift>/<spatie>f4 


1090 rem<shift>/<spatie>c9 

1100 rem xkk**x grootste getal Ch) <= 99 xxx*«x<shift>/<Cspatiedd7 
1110 rem<shift>/<spatieddd 

1120 print chr$(5);chr$(147)<shift>/<spatie>cl 

1130 spS=chr$(17)+chrs(17)tchr$(€17)+chr$(17)+ chr$(17)<shift>/<spatie>3b 
1140 sqs=sp$t+spStsp$t+sps$<shift>/<spatie>de 

1150 v=53248: h=99<shift>/<spatie>66 

1160 poke v+32,0<shift>/<spatie>fa 

1170 poke vt33,0<shift>/<spatiedel 

1180 for i=0 to 7<shift>/<spatie>4i 

1190 poke v+39+i,1<shift>/<spatie>3d 
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1200 next i<shift>/<spatie>7f 

1210 print sp$<shift>/<spatie?00 

1220 input”"hoe heet je “sns<shift>/<spatie>65 

1230 print chr$(147)ssp$3"dag “inS<shift>/<spatie>b3 

1240 print<shift>/<spatie?45 

1250 print “wij gaan sommen maken” <shift>/<spatie>S9 

1260 print<shift>/<spatie>71 

1270 print chr$(147)3sp$;"even wachten “sn%3" weeee "CShHIft>/<spatie>86 
1280 rem(shift>/<spatie>8a 

1290 rem xxxxx data in geheugen poken xxxxx<shift>/<spatie>de 
1300 rem *xxxxx blok O to 9 is cijfer 0 tot 9 xxxxx<shift>/<spatie>cb 
1310 rem xxxxx blok 10-14 is = + ~ * / xxxxx<shift>/<spatie>33 
1320 rem<shift>/<spatier>a2 

1330 i=0: m=240<shift>/<spatie>0f 

1340 read q<shift>/<spatierdef 

1350 if q=-1 then 1390<shift>/<spatie>Iid 

1360 poke mx64+ti,q<shift>/<spatie>bf 

1370 i=itl<shift>/<spatie>?76 

1380 goto 1340<shift>/<spatie>ree 

1390 print chr$(147);sp$<shift>/<spatie>la 

1400 print“hoe groot mogen de sommen”<shift>/<spatie>bf 

1410 input"zijn (tussen 10 en 99)..."sh$<shift>/<spatie>6d 
1420 h=val(h8):if h¢10 or h>99 then 1390<shift>/<spatie>75 
1430 rem<shift>?/<spatie>ic 

1440 rem xxxx* teken Kiezen xx*xxxx<shift>/<spatie>6d 

1450 remCshift>/<spatie>20 

1460 print chr$(147)3sq#<shift>/<spatie>ci 

1470 for i=0 to 3<shift>/<spatie>66 

1480 poke vt1+2xi,25xit+tl00<shift>/<spatie>bf 

1490 poke vt2*i,100<shift>/<spatie>76 

1500 poke 2040+i,m+1iti<shift>/<spatie>83 

1510 poke vt21,(peek(v+21)) or 2<shift>/<spatie>ff 

1520 next i<shift>/<spatie>3e 

1530 print“welke sommen wil je maken “in$3" ?°€shift>/<spatie>65 
1540 print<shift>?/<spatie>9b 

1550 print“druk de gewenste toets in "“schr$(18)3" f1 £3 £5 

7 “<shift>/<spatie>d15 

1560 rem<shift>/<spatie?91 

1570 rem *xxxx gommen genereren xxxxx¢shift>/<spatiedfb 

1580 rem<shift?/<spatier»aS 

1590 get tS: if asc(t$+" “) < 133 or asc(t$t+" “) > 136 then 1590<shift>/<spat 
ie>)4d : 
1600 on asc(t$)-132 goto 1610,1660,1710,1760<shift>/<spatie>r5e 
1610 rem +++++ optellen ++t+++<shift>/<spatie>c6 

1620 gosub 2730<shift>/<spatie>d9 

1630 if atb>h then 1620<shift>/<spatie>2i 

1640 r=atb: t=11<shift>/<spatie>fb 

1650 goto 1800¢shift>/<spatie>f4 

1660 rem aftrekken <shift?/<spatie>ba 

1670 gosub 2730<shift>/<spatie>0b 

1680 if b>a then 1670¢Cshift>/<spatie>08 

1690 r=a-b: t=12<shift>/<spatie>0b 

1700 goto 1800<shift>/<spatie>22 

1710 rem xxxxx vermenigvuldigen xxxx*xx<shift>/<spatie>20 

1720 gosub 2730<shift>/<spatie>35 

1730 if axb>h then 1720<shift>/<spatie>ba 

1740 r=axb: t=13<shift>/<spatie>5b 

1750 goto 1800<shift>/<spatie>S50 

1760 rem ///// Gelen /////<shift>/<spatier2f 

1770 gosub 2730<shift>/<spatie>67 

1780 if (ba) or CCa/b)<>intCa/b)) then 1770<shift>/<spatie>éa 
1790 r=a/b: t=l14<shift>/<spatie>6f 

1800 gosub 2790<shift>/<spatie>8e 

1810 for i=0 to 7<shift>/<spatie>dcc 

1820 poke vt+2xit1,75<shift>/<spatie>12 

1830 next i<shift>/<spatie>dea 

1840 rem<shift>/<spatie>bs 

1850 rem xxkxx sprites op het scherm zetten xxxxx<shift>/<spatie>b8 
1860 rem xxxx* a op het schern xkeRXCShIift>/<spatierc9 

1870 rem<shift>/<spatie>c6 

1880 print chr$(147)<shift>/(spatie>32 

1890 n=O:d=a:s=O:gosub 2380<shift>/<spatie?71 

1900 rem<shift>/<spatie>ded 
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1910 
1920 
1230 
1940 
1950 
1960 
1970 
1980 
1930 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2i10 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2250 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 


rem *xxxkx teken op het scherm xxxxx<shift>/<spatie>reb 
rem<shift>/<spatie>08 

gosub 2500<shift>/<spatie>07 

rem<shift>/<spatie>ic 

rem *xxx* b op het scherm xxxxx<shift>/<spatie?10 
rem<shift>/<spatie>20 

d=b:gosub 2380<shift>/<spatie>bf 
rem<shift>/<spatie?34 

rem *xkkxkx (=) op het scherm **xxx*<shift>/<spatie>36 
rem<shift>/<spatie>58 

t=10:gosub 2500<shift>/<spatie>8a 
rem<shift>/<spatie>6c 

rem *kxk*k* antwoord invoeren xxxxx<shift>/<spatie>7e 
rem<shift>/<spatie>70 

ré=""<shift>/<spatierce 

for j=1 to 2<shift>/<spatiedda 

get z$<shift>/<spatiercl 

if z$="" then gosub 2650<shift>/<spatie>4d 

if j=l and z$=chr$(13) then 2070<shift>/<spatie>65 

if z$=chr$(13) then 2180<shift>/<spatie?13 

if zs<chr$(48) or z$>chr$(57) then 2070<shift>/<spatie>a3 
d=val(z$)<shift>/<spatie20c 

poke v+21,(2n-1)) or (peek (vt21))<shift>/<spatie>db 
gosub 2380<shift>/<spatie>ddO 

r$=r$+z$: s=s-i¢shift>/<spatieria 

next j<shift>/<spatie>bo 

rem<shift>/<spatie>fd 

rem *x***k antwoord be-oordelen xxxxx<shift>/<spatie>27 
remCshift>/<spatie?09 

poke vi21,€2n-1)) or (peek(vt+21))<shift>/<spatie>11 

if val(r$)0r then 2260<shift>/<spatie>62 

ans=" goed zo ":bnS="e som op ...."<shift>/<spatie>8a 
gosub 2870<shift>/<spatie>3e 

gosub 2790<shift>/<spatie?49 

on asc(g$) - 132 goto 1600,1430,1390<shift>/<spatiedef 
ans=" f 0 u t “:bn$=" antwoord op “<shift>/<spatier es 
gosub 2870<shift>/<spatie>56 

on asc(g$) - 132 goto 2310,2290,2290<shift>/<spatie>c7 
gosub 2790<shift>/<spatie>7b 

on ascl(g$)- 132 goto 2300,1430,1390<shift>/<spatie>dt 
n=n-len(r$)<shift>/<spatier a2 

for K=n to ntlen(r$)-i<shift>/<spatie>dl 

poke v+21,not(2) and (peek (vt21))<shift>/<spatie>bb 
next K<shift?/<spatiered .. 

print chrs(147)<shift>/<spatie>4da 

goto 2030<shift>/<spatie>b9 

rem<shift>/<spatie>c4 

rem xxxxk*x subroutine cijfers aanzetten xxxxx<shift>/<spatie>c8 
rem<shift>/<spatie>d0 

dS=str$(d)<shift>/<spatie>3a 

for i=2 to len(d$)<shift>/<spatie>2d 

poke 2040+n,val(mid$(d$,i,1))+m¢shift>/<spatie>d4 
x=(ntits)x24<shift>/<spatie>la 

if x>=256 then gosub 2600<shift>/<spatie>de 

poke vt2xkn,x<shift)/<spatie>5¢4 

poke vt21,(peek(v+21) or2<shift>/<spatie>8e 

n=nticnext i<shift>/<spatie>77 
s=stl:return<shift>/<spatie>24 

rem<shift>/<spatie>3c 

rem xxxxx subroutine teken aanzetten akxxkkk<ShIft>/<spatie>53 
reméshift>/<Cspatie>48 

poke 2040+n,m+t<shift?/<spatie>3b 
x=(ntits)*24¢shift>/<spatie>86 — 

if x>=256 then gosub 2600<shift>/<spatie>2a 

poke vt+2xn,x<shift>/<spatie>30 

poke vt21,(peek(v+21)) or 2<shift>/<spatie>11 
nentl:sesti<shift>/<spatie>3a 
return<shift>/<spatie>90 

rem(shift)/<spatie>9b 

rem xxx** subroutine msb xxxxx(shift>/<spatie>reb 
rem(shift>/<spatie>b7 

x=x-256<shift>/<spatie>lie 

poke v+i6,(peek(v+16)) or 2<shift>/<spatie>57 
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return<shift>/<spatierd4 
rem *x*xk* subroutine knipperen xxxxx<shift>/<spatie>95 
q=qti<shift>/<spatie>47 


if q¢7 then 2720<shift>/<spatie>9a 
poke vi21,(not(2n-1))) and Cpeek(vt21))<shift>/<spatie>45 
if q<11 then 2720<shift>/<spatie>4! 
poke v+21,(€2n-1)) or (peek(v+21))<shift>/<spatie>07 
qzOtshift>/<spatied4f 
return¢shift?/<spatie>24 
rem(shift>/<spatie>2f 
rem xxxx* subroutine random xxxxx<shift>/<spatie>30 
rem(shift>/<spatie>3b 
az=int(rnd(1)*xh)+i<shift>/<spatie>71 
b=int(rnd(1)*xh)+i<shift>/<spatie>68 
return<shift>/<spatie>58 
rem<shift>/<spatie>63 
rem xxxxx subroutine sprites uitzetten x*x*k*xx<shift?/<spatie?69 
rem<shift>/<spatie>7f£ 
poke v+21,0<shift>/<spatie>7b 
for i=0 to 7<shift>/<spatie>dde 
poke 2040+i1,0<shift>/<spatie>7d 
next i<shift>/<spatie>re2 
print chr$(147): return<shift>/<spatie>fe 
rem<shift>/<spatie>b2 
2880 rem *xxx*x subroutine tekst *xxxx<shift>/<spatie>83 
2890 rem<shift>/<spatie>ce 
2900 print chr$(147)isp8<shift>/<spatie>2e 
2910 print tab(5);sq$san$ichr$(32)schr$(32)sn$<shift>/<spatie>zt 
2920 print:print*druk voor volgend”sbn$ichr$(18);" f1 “<shift>/<spatie>a3 
2930 print:print"druk voor andere sommen op ..."ichr$(18)3" 
£3 “<shift>/<spatierea 
2940 print:print”"druk voor nieuw maximum op ..."schr$(18);" 
£5 “<shift>/<spatie>ded 
2950 get gS: if asc(g$+" ") < 133 or asc(g$+" “> > 135 then 2950<shif 
t>/<spatiede3 
2960 return<shift>/<spatie>15 
2970 rem<shift>/<spatie>le 
2980 rem XxXxKKKKKKKk data **k*kxkxxKKKkCShIft>? /<spatie>30 
2990 rem<shift>/<spatie>2a 
3000 rem O<shift>/<spatie?0c 
3010 data 0,126,0,0,255,0,3,255,192,7,129,224,14,0,112,14,0,112,28,0,56,28,0,56 
<shift>/<spatie>63 
3020 data 56,0,28,56,0,28,56,0,28,56,0,28,56,0,28,28,0,56,28,0,56,14,0,112<shif 
t>/<spatie>56 
3030 data 14,0,112,7,129,.224,3,255,192,0,255,0,0,126,0,0<shift>/<spatie>4o 
3040 rem l<shift>/<spatie>55 
3050 data 0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0 
<shift>/<spatie>4de 
3060 data 0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0 
<shift>/<spatie>50 
3070 data 0,56,0.,0<shift>/<spatie>69 
3080 rem 2<shift>?/<spatie>b9 
3090 data 0,62,0,0,255,0,3,255,192,7,0,224,14,0,112,28,0,112,0,0,112,0,0,112 
<shift>/<spatie?80 
8100 data 0,9,224,0,1,192,0,3,128,0,7,0.0.14.0,0,28,0,0,120,0,1,224,0,7,128,0 
<shift>/<spatie>r> a6 
3110 data 15,0,0,31,255,240,31,255,240, 31,255,240, 0<shift>/<spatie>9b 
3120 rem 3<shift>/<spatie>80 
3130 data 0,62,0,0,255,128,3,255,192,7,128,224,14,0,112,0,0,112,0,0,112<shift> 
/<spatie>8c 
3140 data 0,0,224,0,7,224,0,31,192,0,31,128,0,3,224,0,0,112,0.0,56,0,0,56<shi 
ft>/<spatiered 
3150 data 0,0,56,56,0,56,60,0,112,31,255,240,15,255,192,0,255,0,0<shift>/<spa 
tiedfe 
3160 rem 4¢{shift>/<spatieref 
3170 data 14,0,0,14,0,0,14,0,0,14,0,0,14,0,0,14,0,112,14,0,112,14,0,112¢shift 
>/<spatierc3 
3180 data 14,0,112,14,0,112,15,255,240,15,255,240,15,255,.240,9.0,112,0,0,112¢ 
shift?/<spatiere3 
3190 data 0,0,112,0,0,112,0,0,112,0,0,112,0,0,112,0,0,112,0<shift>/<spatierc9 
3200 rem 5<shift>/<spatie?36 
3210 data 31,255,192,31,255,192,31,255,192,28,0,0,28,0,0,28,0,0,28,0,0,28,254 
»,O<Shift>/<spatied2aa 
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3220 data 29,255,0,31,199,128.31,1,192,30,0,224,0,0,224,0,0,224,0,0,224¢shift 
»/<spatie>20. 

3230 data 0,0,224,0,0,224,30,1,192,15,3,192,7,255,128,0,254,0,0<shift>/<spati 
e229 

3240 rem 6<shifto/<spatledld 

3250 data 0,63,128,0,255,126,1,224,0,3,192,.0,7,128,0,7,0,9,14,0,0,14,60,0¢sh1 
ft>/<spatie>17 

3260 data 30,255,0,31,255,128,31,3,192, 30, 0,224,28,0,112,28,0,112,28,0,112<s 
hLft>/<spatie>3d 

3270 data 28.0,112,28,0,112,31,0,224,15,131,192,7,255,192,1,299,0,0<shift>/<s 
patie>7e 

3280 ren ae 

3290 data 7,255,240,7,255,240,7,255,240,0,0,112,0,0,224,0,1,192,0,3,128<shif 
t>/<spatieé3 

9900 data 0,7,0,0,14,0,0,28,0,0,28,0,0,56,0,0,112,0,0,112,0,0,224,0,1,192,0¢s 
hi fc>/<apatiedoo 

3310 data 3,128,0,3,128,0,7,0,0,14,0,0,14,0,0,0<shift>/<spatie>dda 

3320 rem 8<shift>/<spatie>43 

3330 data 0,126,0,1,255,128,3,255,192,7,129,224,7,0,224,14,0,112,14,0,112¢shi 
ft>/<spatie>dbo 

3340 data 15,0,240,7,255,224,3,255,192,3,255,192,15,195,240,30,0,120,28,0,56<¢ 
shift>/<spatie>87 

3350 data 28,0,56,28,0,56,30,0,120,15,0,240,15,255,240,7,255,224,1,255,128,0¢ 
shift>/<spatie>8f 

3360 rem 9<shift>/<spatie>9b 

3370 data 0,255,128,3,255,224,3,193,240,7,0,248,14,0,56,14,0,56,14,0,56,14,0, 
56<shift>/<spatie>83 

3380 data 14,0,56,7,0,120,3,192,248,1,255,248,0,255,120,0,60,112,0,0,112<shif 
t>/<spatie>b5 

3390 data 0,0,224,0,1,224,0,3,192,0,7,128,1,255,0,1,252,0,0<shift>/<spatie>83 
3400 rem = (blok 10)<shift>/<spatiedfd 

3410 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,050,0,0,0<shift>/<spatie>fO 
3420 data 31,255, 252,311,255, 252, 31,255, 252,0,0,0,0,0,0,0,0,0,0,0,0<shift>/<sp 
atie>d7 

3430 data 31,255,252,31,255,252,31,255, 252,0,0,0,0,0,0,0,0,0,0<shift>/<spatie 
ded 

3440 rem + (blok 11)<shift>/<spatie>dz2 
3450 data 0,0,0,0,0,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0<shift> 
/<spatie>£7 

3460 data 31,255,240, 31,255, 240, 31,255,240,0,56,0,0,56,0,0,56,0,0,56,0<shift> 
/<spatie>d0c 

3470 data 0,56,0,0,56,0,0,56,0, ,0,0,0,0,0,0,0<shift>/<spatier1f 

3480 rem - (blok 12)<shift>/<spatied3f 

3490 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0¢shift>/ 
<spatie>0o 

3500 data 0,0,0,0,0,0,31,255,240, 31,255,240, 31,255, 240<shift>/<spatie>24 
3510 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0<shift>/<spatie>08 


em x (klok_13)<shift?/<spatie>61 

3249 KER. *_Rigk 1a sshlsta/fapatse gs, iio 3,128,224, 1,193, 192,0, 227, 128¢shi 
f£t>/<spatie>6b 
3540 data 0,119,0,0,62,0,0,28,0,0,62,0,0,119,0,0, 227,128, 1,193, 192<shift>/<sp 
atie>Sc 
3550 data 3,128,224,7,0,112,14,0,56,0,0,0,0,0,0,0,0,0,0<shift>/<(spatie>6f 
3560 rem / (blok 14)<shift>/<spatie) 4b 
3570 data 0,0,0,0,0,0,0,0,0,0,60,0,0,60,0,0,60, 0<shift>/<spatie>66 
3580 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0¢shift>/<spati 
e>42 
3590 data 0,60,0,0,60,0,0,60,0,0,0,0,0,0,0,0,0,0,0<shift>/<spatie>8d 
3600 data -li<shift>/<spatie>8i 


* 
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Lof en hulde. Zo luidt het algemene oordeel over de 
Brother HR-5. Daar is natuurlijk een reden voor. Tien redenen 
Zelfs, als u Ze op uw vingers natelt. Ten eerste is het een dot 
matrix printer waar u de afzonderlijke puntjes niet of nauwelijks 
aan af ziet. Ten tweede print de HR-5 zowel op normaal papier 
als op thermisch papier. Ten derde is het formaat zo klein 
gehouden dat de HR-5 samen met een personal computer in 
een attachekoffer past. Ten vierde is het gewicht maar 1.75 kg. 
Van vijf tot tien volgt dan nog de werking ook op batterij, 80 
tekens per regel, de broederschap met bijna alle computer 
types, RS 232 C, centronics parallel of Commodore versie, de 
gave uitprint van grafieken, de printsnelheid van 30 tekens per 
sekonde en de fluisterstilte onder het printen. 

Zoveel kompleetheid in zo’n klein maatie, dat blijkt 


‘overal onverdeeld goed te vallen. Vraag 
de dokumentatie aan op onderstaand 















































adres. Adviesprijs f 695,- ex. btw. BROTHER INDUSTRIES LTD, NAGOYA/JAPAN 
Fr aon nn nnn nnn nn nnn nnn nnn n-ne === +5 
BONS tosses con oe 
a |k wil meer informatie over de HR-5. ; 

Naam: ! 
I 

Adres: 
I 

Postcode: Plaats: ! 
I 





Opsturen naar: Brother International (Nederland) BV. Postbus 600, 1180 AP Amstelveen, 


a cs a a eg A eS a fs vss Sem a vnc a 41 Battery powered en netvoeding. 


Brother International (Nederland) BV, 


Zanderij 25-27, 1185 ZM Amstelveen. Telefoon 020-474471* 





Brother Industries Ltd. Nagoya, Japan. 
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COMMODORE 


=. 


= 


Abonnees van Commodore Dossier Aktief kunnen in deze ru- 
briek kosteloos een advertentie plaatsen. De service is uit- 
sluitend bedoeld voor particulieren. Puur commerciéle adver- 
tenties en aanbiedingen van illegale programmatuur worden 
geweigerd. De redactie is niet verantwoordelijk voor fouten 


als gevolg van ae op 
aans 


hoogste 7 regels van 2 


Ik ZOEK SOFTWARE 

@ Tegen ki. vergoeding software gevr. 
voor de CBM-64. Lijst en prijsopg. naar 
I.van Loenhoud, Frankenhorst 27-C, 
2171VD Sassenheim. 


@ Beginneling zoekt software (liefst spel- 
letjes voor cassette en disk). Te ruilen is 
ook mogelijk. K.de Eerste, Reiger 69, 
1628 BC Hoorn NH. 


@ Gevr.: zakelijke programma’s bv. admi- 
nistratie, grafieken, etc. Tegen vergoeding 
of te ruilen. Manfred Mooyer, Stavoren- 
plantsoen 12, 1131 KM Volendam. 


@ Ik zoek alleriei software voor de C-64. 
Stuur aanbiedingen met prijs naar M.Ste- 
vens, Steenstraat 55, 6921 LB Duiven. 


@ C-64 bezitter zoekt zakelijke program- 
ma’s (bijv. faktureerprogramma’s).J.Jan- 
sen, Bongersstraat 28, 7071 CN Ulft. 


@ Gevr.: database, spreadsheet, tekstver- 
werker uit Commodore Dossier 0 of 1 te- 
gen vergoeding of te ruilen. Tel.: 
01198-1518. 


@ Wie heeft voor mij een goede neder- 
landstalige spraaksynthesizer tegen een 
redelijke vergoeding of te ruilen. Tel.: 
043-212840. 


© Wie kan mij helpen aan een program- 
ma facsimile voor zend en ontvangst of 
programma weersateliet ontvangst.A. Ras, 
Solmsbolwerk 14, 4651 AE Steenbergen 
NB. Tel.: 01670-64452. 


@ Ik zoek spelietjes en programma’s op 
Cassette voor de Vic-20 + snellader. 
d.Heijink, Schefferlaan 1, 7771 CW Har- 
denberg. Tel.: 05232-64704. 


@ Ik zoek Vic-20 software spel en utility 
(liefst met een turbo). Appie Otten. Tel.: 
040-540366. 


@ Wie heeft voor C-64 een goed bridge 
programma op cassette. M.Schiphorst, Ka- 
pelstraat 106, 3572 CP Utrecht. Tel.: 
030-719585. 


@ Gezocht op tape: karaktergenerator uit 
Commodore Dossier Aktief van juli. Event. 
tegen vergoeding of te ruilen. F.Sijtema. 
Tel.: 05178-3495. 


@ Ben op zoek naar spectrumanalyzer 
die Adam Curry in Countdown gebruikt. 
Tevens zoek ik een programma dat aantal 
beats per minuut geeft voor interfacing 
met Hifi. Tel: 02550-12232. 


@ Ik zoek software voor de CBM-64 
(Cass. of disk). Event. ook ruilen. Stuur 
lijst en info naar K.vd Eeden, J.de 
Smitstraat 35, 4388 NA Oost-Souburg. 


© Ik ben op zoek naar educatieve spel- 
len en naar programma’s over astrologie. 
Letty van Egmond. Tel.: 071-122039. 


@ Gevr.: gratis listings over en van spel- 
letjes en zakelijke programma’s. Ben zelf 

in het bezit van 300 spellen. Listings stu- 
ren naar S.Francen, Wijchmaalsebaan 36, 
B-3588 Eksel (Belgie). 


ave. Een advertentie mag ten 
agen lang zijn. 


@ Gevr.: Geintegr. zakelijke programma’s 
op disk voor de C-64 (bijv. Vizastar). 
B.Elzenaar, Postbus 1514, 1000 BM 
Amsterdam. Tel.: 020-279866. 


@ Ik zoek goede programma’s hij voor- 

keur beeldadventures of een snelle data- 
base op band voor C-64 tegen ki.vergoe- 
ding. G.Laurens, Utrechtsestraatweg 20, 
3958 BP Amerongen. 


@ Ik zoek voor mijn CBM-64 een CPM 
operating system (disk en cartridge). Hans 
Leemans, Molenstraat 15, B-9900 Eeklo 
(Belgie). Tel: 091-771516. 


@ Wie kan mij helpen aan educatieve 
software of listings ervan. J.Stouten, Mi- 
lanenhorst 48, 2317 CG Leiden. Tel.: 
071-212151 (na 19.00 uur). 


@ Gevr.: software voor C-64 oa. dam- 
men, schaken en com-in 64 op casseite. 
Onkosten worden vergoed. J.Slotman, Pla- 
taan 10, 7681 HG Vroomshoop. 


© Wie kan mij adventure games toestu- 
ren voor ZX81 ?. A.Dumarez, Dage- 
raadstraat 41, B-2800 Mechelen (Belgie). 


®@ Ik zoek een programma voor platen- 
bestand op CBM-64. Event. tegen vergoe- 
ding. A.Muilwijk, Escamplaan 173, 2547 
GD ’s Gravenhage. Tel.: 070-235162. 


@ Wie kan mij helpen aan een module of 
programma waardoor mijn C-16 geschikt 
is voor C-64 software. A.J.Slingerland. 
Tel.: 01807-22337 (na 17.00 uur). 


@ Waar zijn C-16 gebruikers? ik zoek 
software! Bert Mijnhout, Straatweg 2, 
Breukelen. Tel.: 03462-64460. 


@ Ik zoek een autostariprogramma voor 
cassette (CBM-64). Stuur listing naar 
E.J.Post, Boreelstraat 66, 3039 WL Rot- 
terdam. 


@ Wie kan mij tegen ki. vergoeding hel- 
pen aan de database uit Commodore Dos- 
sier nr.0. K.van Loon, R.van Rappardlaan 
1, 6865 BY Doorwerth. 


@ Wie kan mij tegen vergoeding helpen 
aan programma’s voor de CBM-64 (op 
cassette). M.Jespers, Abtsherbergstraat 5, 
B-2500 Lier (Belgie). Tel.: 03-4897066. 


@ Ik zoek grafische 3-D tekenprogram- 
ma’s. Tevens naar CBM-64 versie van si- 
tmulatieprogramma’s PSI en Crit van TH- 
Delft. H.de Vries, Bosb.Toussaintplein 21, 
2624 DD Delft. Tel.: 015-620566. 


© Gezocht tegen kl.vergoeding flightsimu- 
lators op disc. F.A.Kwinten, Rijnsburger- 
weg 29, 2341 AA Oegstgeest. 


@ Gevr.: tekst-adventures. Zelf wil ik 
150 spelleties op cassetes voor C-64 
voor ruiling aanbieden. P.Mannie, Robyn- 
dijk 18, 4706 LW Roosendaal. 


@ Gezocht: tekenprogramma’s voor 
CBM-64 met print mogelijkheid. Tevens 
500 programma’s op cassttes te ruiling. 
C.Kevenaar, Strevelsweg 80-A, 3075 AM 
Rotterdam. 


IK WIL RUILEN 


® ik bezit een groot aantal speelprogram- 
ma’s. Stuur je lijst naar Bernard Vries, 
Tramstraat 16, B-8060 Zwevezele (Bel- 


_ gie).Tel.: 051-611474. 


@ Gezocht: meisje om software te ruilen. 
Ben in het bezit van 1000 arcade-spellen. 
Kurt Vandorpe, Guidensporenstraat 27, 
B-8020 Oostkamp (Belgie). 


@ Ik wil graag CBM-64 software op cas- 
sette ruilen. Ik heb plm 250 program- 
ma’s. Fred Rutting, Steendijk 83, 9404 
AC Assen. Tel.: 05920-15039. 


@ Wie wil spelletjes voor de CBM-64 (ta- 
pe) ruilen? B.Oude Veldhuis, Handelstraat 
63-li, 3533 GH Utrecht. Tel.: 
030-934781. 


@ Te ruilen software (tape en disk) voor 
de CBM-64. Ronnie Duindam. Tel.: 
070-671991 (na 16.00 uur). 


© ik wil programma’s (disk en tape) voor 
CBM-64 ruilen. Ik zoek alleen personen in 
het Antwerpse om te ruilen. Erik Bergh- 
mans, Wenenstraat 23, B-2710 Hoboken 
(Belgie). Tel.: 03-8275988. 


@ Ik wil graag CMB-64 software (op cas- 
sette) ruilen. Zelf heb ik plm 800 pro- 
gramma’s. M.A.Wiering, Beethovenlaan 7, 
1741 HT Schagen. Tel.: 02240-96000. 


©@ CBM-64 software op cassete + lijst 
opsturen naar F.P.Wijngaarden, Stokerij 
95, 8401 EE Gorredijk. Cassette + mijn 
lijst met andere programma’s binnen 2 
weken retour. 


@ Gezocht: meisje om programma’s en 
ideeen uit te wisselen. Heb pim 1000 
programma’s. Bart Willems, Duinker- 
kestraat 19, B-8480 Veurne (Belgie). 


@ Zoek Poke nr voor CBM-64.Stuur de u 
bekende nrs aan mij en ik retourneer u 
alle aan mij bekende nrs van dat mo- 
ment. Svp postzegel bijstuiten. Marcel 
Stroeve, Postbus 49, 7460 AA Ryssen. 


® Software voor C-16 te ruilen. Ook im- 
port. Stuur je lijst naar Hein Slabbers, 
Burg Passtoorsstraat 26, 4835 KG Breda. 


@ CBM-64 software te ruilen. Stuur je 
lijst + cassette naar Rene Hage, Ru- 
bensstraat 39, 3351 JT in Papendrecht. 


@ CBM-64 software (op disk) te ruilen. 
Jan Lammersma. Tel.: 03240-18557. 


@ Software (plm 2000 pregramma’s) te 
ruil voor CBM-64. Ook handleiding te ruil. 
Gevr. handleiding Petspeed en printshop. 
Stuur je lijst naar E.Preso, Vietweide 118, 
3981 ZN Bunnik. Tel.: 03405-63879. 


@ Ik wil spelletjes voor de CBM-64 rui- 
len. Stuur je lijst naar Jan vd Wouw, 
Noordstraat 86, 5038 EK Tilburg. Tel.: 
013-423833. 


@ Ik wil graag CBM-64 software (op cas- 
sette) ruilen. Zelf heb ik pim 500 pro- 
gramma’s. Stuur je lijst naar Roger Eyk- 
houdt, Raadhuisstraat 118, 6336 VN 
Hulsberg. 


© CBM-64 software te ruil. Keuze uit plm 
400 titels (geen disk). Stuur lijst naar 
M.Hoogstad, Blauwe Torenstraat 25, 


_ 7241 BD Lochem. 


@ Ik wil graag CBM-64 software ruilen 
op cassette. Bezit zelf plm 200 program- 
ma’s. Stuur fijst naar B.J.Slagt, Krachtig- 
huizerweg 17, 3881 PC Putten. Tel.: 
03418-52106. 





@ |k zoek mooie en goede programma’s 
op tape. Stuur je lijst naar Paul Koster, 
Herculesstraat 33, 1973 VM Ymuiden. 


@ CBM-64 software te ruil. Plm 1000 
programma’s op cassette. Stuur je lijst 
naar W.vd Weetering, Schapenmeent 
107, 1357 GK Almere. 


@ CBM-64 software (disk en cassette) te 
ruil. Stuur je lijst naar W.de Jonge, Maris- 
hof 32, 7131 TK Lichtenvoorde. Tel.: 
05443-5989. 


@ CBM-64 software (veel fitels) te ruil. 
P.Cesar, v Bylandistraat 127, 2562 GB 
°s Gravenhage. Tel. 070-457967. 


@ Ruilen: Wie wil met mij CBM-64 soft- 
ware ruilen? Het liefst in Amsterdam. Ik 
bezit pim 550 spellen. Tel.: 020-371370 
of via Viditel (Vidibusnummer 
400022057). 


@ Ik wil CBM-64 software ruilen. Bezit 
plm 400 programma’s op tape. Stuur je 
lijst naar Ronny Rutten, Schoolstraat 8, 
6596 AP Milsbeek. Tel.: 08851-17121. 


@ Wie helpt mij aan de programma’s uit 
Commodore Dossier nr. 0-1-2-3. Ik bezit 
een €-64 en wil rullen tegen andere pro- 
gramma’s (plm 1100, enkel disk). 
Th.Franck, Gretrystraat 7-Bus 10, B-2018 
Antwerpen (Belgie). 


@ Ik wil goede software voor de C-64 
ruilen. Ik bied ruim 1000 programma’s op 
tape en op disk. Stuur lijst met je tele- 
foonnr. naar J.Brakenhoff, Punterstraat 7, 
1826 CJ Alkmaar. 


@ Te ruilen C-64 software. Diverse spelen, 
talen en gebr.programma’s. Stuur je lijst 
naar Bert Smit, Prof K Onneslaan 117-B, 
3112 VD Sciedam. Tel.:010-269123. 


@ CBM-64 software (plm 100 program- 
ma’s op disk) te ruilen. Stuur je lijst naar 
T.Emmers, Rubenslei 28, B-2018 Antwer- 
pen (Belgie). 


@ Zeer goede C-64 programma’s te ruilen 
tegen bioritme, horoscoop en astrologie 
programma’s. R.Schepers, Apollostraat 
15, 3204 CB Spykenisse. Tel.: 
01880-17115. 


@ CBM-64: Ik heb 1500 programma’s 
(disk en tape) en wens te ruilen. Stuur 
lijst naar Y.Type, Spalaan 19, b-8400 
Oostende (Belgie). 


@ Ik wil spelletjes voor de C-64 ruilen. 
Stuur je lijst met telefoonnr. naar David 
Huygh, Laudinnestraat 9, B-1712 Vlezen- 
beek (Belgie). Tel.: 02-5692037. 


@ CBM-64 software (pim 700 program- 
ma’s op disk) te ruilen, Stuur lijst naar 
D.Vanderhaegen, Nijverheidsstraat 116, 
B-1800 Vilvoorde (Belgie). Tel.: 
02-2513118. 


@ Ik wil graag CBM-64 software ruilen 
voor tape of disk. Stuur lijst naar 
R.Schoubben, St Truidersteenweg 118, 
B-3700 Tongeren (Belgie). 


© Wie wil programma’s (cassettes) met 
mij ruilen. Stuur lijst naar Edgar van As- 
selt, Korenbloemiaan 13, 6713 DW Ede. 


@ Te ruilen programma’s voor de C-64. 
Stuur lijst naar J.Moorrees, H Seghersiaan 
39, 7944 LH Meppel, 


@ Ik wil graag leuke en mooie spelletjes 
voor de C-64 op tape ruilen. Stuur lijst + 
cassette naar Gerwin Janssen, Goudenre- 
genlaan 9, 5582 BA Waalre. Tel. 
04904-15400. 
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COMMODORE 


@ Ik zou graag software (spelletjes op 
cassette) willen ruilen. Stuur lijst naar 
Mark Messagie, Regulus 12, 4501 GV 
Oostburg. 


@ Ruilen software (alleen op cassette) 
voor CBM-64. P.Boer. Tel.: 010-147738. 


@ Ik wil graag C-64 software (300 pro- 
gramma’s op cassette) ruilen. Stuur lijst 
naar Edwin van Saanen, Kramerstraat 29, 
1502 TM Zaandam. : 


@ CBM-64 software (600 programma’s 
op Cassette) te ruilen. Stuur lijst naar 
R.van Asperen, Nieuwstraat 28, 3243 AN 
Stad a/h Haringvliet. 


@ Ik wil plm 800 spelletjes voor de C-64 
tuilen. Stuur lijst naar M.A.Wiering, Bee- 
thovenlaan 7, 1741 HT Schagen. Tel.: 
02240-12697. 


@ Ik wil graag CBM-64 software (pim 
400 programma’s op cassette) ruilen. 
Stuur lijst naar K.Verhaegen, C Ver- 
hulststraat 19, B-2590 Berlaar (Belgie). 


@ Ik wil graag CBM-64 software (pim 
300 programma’s op cassette) ruilen. 
Stuur lijst naar W.Moesman, Landstraat 
38, 1814 BE Alkmaar. Tel.: 072-112629. 


@ CBM-64 software (plm 850 program- 

ma’s op cassette of disk) te ruilen. Stuur 
lijst naar J.Kruiter, Marsstraat 32, 8303 

AM Emmeloord. Tel.: 05270-14162. 


@ Ik wil graag CBM-64 software (1200 
programma’s op disk) ruilen. H.Dijkstra, 
Wulpstraat 33, 8446 GG Heerenveen. 
Tel.: 05130-25641. 





5,25”HD, 8” 


© Wie wil software ruilen? Ik bezit 700 
programma’s. Stuur lijst naar A.Jans, Ba- 
siliekstraat 14, B-3800 St.Truiden (Bel- 
gie). 


@ Ik wil spelletjes voor de C-64 ruilen. 
Stuur lijst naar Jeffrey van Loon, Sper- 
werlaan 441, 3136 GK Vlaardingen. 


_ @ ik wil spelleties voor de C-64 ruilen. 


Stuur lijst naar H.Schoemaker, Zierik- 
zeestraat 26, 6845 BM Arnhem. 


@ CBM-64 software (plim 2000 program- 

ma’s voor disk) te ruilen. Stuur lijst naar 

E.Linders, Halewynstraat 24, 4875 CV Et- 
ten Leur. Tel.: 01608-16269. 


@ Vic-20 programma’s (8 of 16K). Ik heb 
plm 400 programma’s. Stuur je lijst naar 

Eduard vd Ridder, Beatrixstraat 18, 3862 

DB Nykerk. Tel.: 03494-57542. 


IK BIED AAN SOFTWARE 

@ Plm 250 spellen voor commodore-64. 
Hans Emmerink, Ingelsbroek 12, 6442 
AH Brunssum. Tel.: 045-256125. / 


@ Orig. typecursus van radarsoft voor 
CBM-64 op cassette. Prijs: f1.35,=. Tel.: 
08356-86786 (na 18.00 uur). 


@ Printshop drukkerij voor thuis.Voor 
C-64 op disk. Nieuw in doos + hand- 
boek. Prijs f1.100,=. Tel.: 01892-14365. 


@ Zeli geschreven software facturatie 
met klanten en artikelenbeheer, stockbe- 
heer, debiteurenbeheer, databases enz. op 
schijf of cassette. Henry Schuerwege, 
Lierbaan 202, B-2870 Putte (Belgie). 


BASF Fle 


BASF FlexyDisk 5,25”, 


5,25”, 5,25”HD 


BASF FlexyDisk Science 


© Orig. BTW progr. met geintegreerde 
facturatie en in- en verkoopannalyse. 
Fr.Bulkens, Doorniksewijk 29, B-8500 
Kortrijk (Belgie). Tel.: 056-216257. 


@ Te koop: legale spelletjes op cassette 
{met handleiding). Titels: Jumpin Jack, 
Decathlon, Moonbuggy, Triad, Hustler (bil- 
jart) en een adventurescassette. Paul van 
der Veen. Tel.: 020-365125. 


@ CBM-64 aandelen programma op tape 
voor bijhouden van uw transactie’s. Te- 
vens andere vermogens en maandrappor- 
tage. Prijs: f1.100,=. J.Straatman. Tel.: 
01883-16429. 


@ Te koop of te ruil plm 500 spellen in 
machinetaal op tape (of event.disk) voor 
de C-64. Frank van lJzendoorn, Griend 
15, 6662 XS Elst (Gid). 


@ Te koop of te ruil vele CBM-64 spelle- 
ties op cassette of disk. Edwin Pietersen. 
Tel. 05270-13698. 


© CBM-64. Orig.cassettes aangeb.oa. The 
Hobbit. Prijs f1.20,—. Tevens kontakt ge- 
zocht voor het ruilen van software.Julian 
Atienzar, Hengelosestraat 162, Enschede. 


@ Software Vie-20. Allerlei arcade spel- 
letjes (denk en lessen). R.Van Zeebroeck, 
Leireken 126, B-1880 Merchtem (Belgie). 
Tel.: 052-350867 (na 18.00 uur). 


@ In bezit Run/USA en Run-DTSL. Elk 
ruim jaar. Wie ruilt (tijdelijk) voor andere 
gelijkwaardige bladen. Biedt tevens aan 
orig.grandmaster schaakspel (cassette). 
B.L.de Roos, Zonnestein 118, 1181 MA 
Amstelveen. Tel.: 020-415479. 








3,5” 


D | k 
BASF FlexyDisk 


De diskette met extreem 


Volledige bedrijfszekerheid nu bij 


De top-diskette voor gebruik in 


OVERIGEN 

@ Heeft u geen zin om lange listings in 
te typen? Ik wil dat tegen vergoeding wel 
voor u doen. R.Goedel, Buitenzorgiaan 
19-A, 6712 GN Ede.Tel.: 08380-17409 
(na 17.00 uur). 


@ Ik zoek een handleiding voor wordpro 
3+ (CBM-64). M.Kreijtz, Troelstralaan 
319, 9406 BC Assen. 


@ Gevr.: Poke’s voor spelletjes voor de 
C-64. M.Derksen, Archipel 4559, 8224 
HW Lelystad. 


@ Wie heeft voor mij een nederlandstali- 
ge handleiding voor de commodore printer 
MPS-802. Johan Ernest, L.P.van Mal- 
landstraat 29, 4754 AL Stampersgat. 


@ Gezocht een beschrijving van de 
Vic-20 ROM en geheugenmap met 16K 
uitbreiding. R.Lambert, Ardooiesteenweg 
177-Bus 9, B-8800 Roeselare (Belgie). 


@ Wie helpt mij? Ik wil graag via een 
modem communiseren. Dit om enige erva- 
ring op te doen. W.A.Dal. Tel.: 
055-410452 (na 18.00 uur). 


Uw advertentie-opdrachten 
sturen naar: CD-MARKT 
t.a.v. Carla de Haan 
redactiesecretariaat 


Rijnsburgstraat 11 
1059 AT Amsterdam 






wetenschap en techniek. 
Temperatuurbestendig tot +70°C. 
Volledige opperviaktecontrole. 
Gemiddelde levensduur van 70 
miljoen lees-/schrijfkoppassages 
per spoor. 


twee keer zo lange levensduur: 
gemiddeld 35 miljoen lees- 
schrijfkoppassages per spoor. 


hoge registratiecapaciteit 
voor de nieuwe micro 
disk drive generatie. 
Leverbaar in 1D en 2D 
uitvoering. 
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BASF Nederland BV. 
Divisie Datatechniek 
Postbus 1019 

6801 MC Arnhem 
Tel. 085-717302 


= BASF 


SS 


Bedrijfszeker door top-technologie 
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Flexy Disk 


Science 
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Het eerste 
Computer 

| Geassisteerde 
i Computerspel 






Be kaprioclen 


Radarsoft’s nieuwste produkt, waarbij 
de grenzen van de Commodore 64 
opnieuw worden verlegd. 





Het spel 


Het speelt zich allemaal af diep onder het 
trottoir van 6 wereldsteden: de riolen van 
Amsterdam, Londen, Parijs, okyo, New York 
en Moskou! Je hebt de opdracht deze 
schoon te maken. Maar je staat er NIET 
alleen voor. DE KAPRIOLEN wordt namelijk 
met een heuse propot gespeeld, FLOYD. 
Deze probot (PROBOT= PROgrammeerbare 
1oBOT) is in de fabriek geprogrammeerd 
om vuil op te ruimen en barsten te 
repareren. En jouw taak is om hem door 
het ondergronds labyrinth naar het vuil te 
leiden. Er zitten echter haken en ogen aan 
deze klus. Je bent namelijk NIET in je eentje 
daar beneden. Er leven ook rappe ratten, 
valse vleermuizen, doorgespoelde 
alligators en losgebroken boeven in de 
buizenstelsels die het werken daar bijna 
onmogelijk maken. Nu kun je als speler 
met je joystick je robot op deze gevaren 
afsturen. Maar je kunt ook slim zijn, De 
robot is namelijk ook ZELF te 
programmeren. Met andere woorden JIJ 
LEERT HEM HOE HIJ HET SPEL MOET MEE 
SPELEN. Daartoe ontwerp je PROCEDURES 
die hij opvolgt als de situatie zich voordoet. 
Tegen de gevaarlijke rondlopende ratten 
ontwerp je dus een RATL-PROCEDURE. Voor 
de door de toilet gespoelde alligators een 
ALLIGATOR-PROCEDURE enz. Dat wil dus 
niet zeggen dat het er makkelijker op 
wordt. JIJ moet tenslotte zeggen waar, 
wanneer en hoe FLOYD het riool moet 
opruimen. Je staat er dus niet meer alleen 








voor. Maar zouden FLOYD en jij de zaak * Mog elijkheid tot gebruik grote wereldsteden, middels 
sMSNET Sigiea? van verschillende adembenemende graphics. 
Ansteran Rehuetis GSO kamerastandpunten voor * Realistisch geanimeerde 


een duidelijk aktie overzicht. tegenstanders. 
Mel wigatneide Nedemamastenge ie 3-Dimensionale weergave x Uniek - computer geassis- 
handleiding. van rioolsystemen van 6 teerd interne spelprocedure. 


Commodore 64 


Andere kwaliteitsprogramma’'s van 


RadarSoft voor uw CBM64 zijn: 
- Kruiswoord - Databasis 3.0 - De Sekte 
-De grotten van Oberon - Eindeloos 
- Topogratie Nederland/Europa/Wereld 
- empotypen - Rekenwonder - Letterstress 
-Radarbasic 5OK - Databasis - Tijdreiziger 


- Steen der Wijzen - Anonimus - Nautilus 
- Horror Hotel - Zone 7. 


Verkrijgbaar bij de off. RadarSoft dealers 0.4, Vroom & Dreesman, Dixons, Fotoquelle e.v.a. 
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